home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / mac / MAC / School House / Misc. / Exercise / card_4693.txt < prev    next >
Text File  |  1988-01-10  |  8KB  |  328 lines
  1. -- card: 4693 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2602
  5. -- name: CLOSE GRIP CURL
  6. ----- HyperTalk script -----
  7. ON OPENCARD
  8.   PUT SHORT NAME OF THIS CARD INTO CARD FIELD "EXERCISE"
  9. END OPENCARD
  10.  
  11.  
  12.  
  13. -- part 6 (field)
  14. -- low flags: 00
  15. -- high flags: 0000
  16. -- rect: left=145 top=61 right=82 bottom=307
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 128
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: EXERCISE
  25.  
  26.  
  27. -- part 11 (field)
  28. -- low flags: 00
  29. -- high flags: 0007
  30. -- rect: left=184 top=105 right=219 bottom=270
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 128
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: WEIGHT
  39. ----- HyperTalk script -----
  40. on mouseWithin
  41.   get the scroll of card field "WEIGHT"
  42.   set the scroll of card field "DATE" to it
  43.   set the scroll of card field "REPS" to it
  44.   set the scroll of card field "SETS" to it
  45. end mouseWithin
  46.  
  47.  
  48.  
  49. -- part 12 (field)
  50. -- low flags: 00
  51. -- high flags: 0007
  52. -- rect: left=296 top=106 right=220 bottom=383
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 128
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: REPS
  61. ----- HyperTalk script -----
  62. on mouseWithin
  63.   get the scroll of card field "REPS"
  64.   set the scroll of card field "DATE" to it
  65.   set the scroll of card field "WEIGHT" to it
  66.   set the scroll of card field "SETS" to it
  67. end mouseWithin
  68.  
  69.  
  70.  
  71. -- part 13 (field)
  72. -- low flags: 00
  73. -- high flags: 0007
  74. -- rect: left=412 top=106 right=223 bottom=494
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 128
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: SETS
  83. ----- HyperTalk script -----
  84. on mouseWithin
  85.   get the scroll of card field "SETS"
  86.   set the scroll of card field "DATE" to it
  87.   set the scroll of card field "WEIGHT" to it
  88.   set the scroll of card field "REPS" to it
  89. end mouseWithin
  90.  
  91.  
  92.  
  93. -- part 14 (field)
  94. -- low flags: 00
  95. -- high flags: 0007
  96. -- rect: left=52 top=105 right=220 bottom=146
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 128
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: DATE
  105. ----- HyperTalk script -----
  106. on mouseWithin
  107.   get the scroll of card field "DATE"
  108.   set the scroll of card field "WEIGHT" to it
  109.   set the scroll of card field "REPS" to it
  110.   set the scroll of card field "SETS" to it
  111. end mouseWithin
  112.  
  113.  
  114.  
  115. -- part 18 (button)
  116. -- low flags: 00
  117. -- high flags: A003
  118. -- rect: left=426 top=274 right=296 bottom=482
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: SETS
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   PUSH CARD
  130.   PUT SHORT NAME OF THIS CARD INTO EXNAME
  131.   GO TO CARD "CHART"
  132.   PUT CARD FIELD "SETS" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  133.   PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  134.   PUT  " SETS" AFTER BACKGROUND FIELD "GRAPH NAME"
  135.   put the userLevel into saveLevel
  136.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  137.   if the userLevel < 3 then exit mouseUp
  138.   CLEARSCREEN
  139.   put empty into background field "total"
  140.   reset paint
  141.   choose rect tool
  142.   set lineSize to 1
  143.   set pattern to 14
  144.   set filled to true
  145.   put frameleft() into horiz
  146.   put maxLine(field "DATA") into maxValue
  147.   put the number of lines in field "DATA" into dataCount
  148.   put round(framewidth()/dataCount) into horizStep
  149.   put round(horizStep * 3/4) into width
  150.   repeat with i = 1 to dataCount
  151.     get line i of field "DATA"
  152.     if it is not empty then
  153.       put round(frameheight() * it / maxValue) into height
  154.       drag from horiz,framebottom()-height to horiz+width,framebottom()
  155.     end if
  156.     add horizStep to horiz
  157.   end repeat
  158.   reset paint
  159.   choose browse tool
  160.   set userLevel to saveLevel
  161. end mouseUp
  162.  
  163.  
  164.  
  165.  
  166. -- part 19 (button)
  167. -- low flags: 00
  168. -- high flags: A003
  169. -- rect: left=316 top=274 right=296 bottom=372
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: REPS
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   PUSH CARD
  181.   PUT SHORT NAME OF THIS CARD INTO EXNAME
  182.   GO TO CARD "CHART"
  183.   PUT CARD FIELD "REPS" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  184.   PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  185.   PUT  " REPS" AFTER BACKGROUND FIELD "GRAPH NAME"
  186.   put the userLevel into saveLevel
  187.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  188.   if the userLevel < 3 then exit mouseUp
  189.   CLEARSCREEN
  190.   put empty into background field "total"
  191.   reset paint
  192.   choose rect tool
  193.   set lineSize to 1
  194.   set pattern to 14
  195.   set filled to true
  196.   put frameleft() into horiz
  197.   put maxLine(field "DATA") into maxValue
  198.   put the number of lines in field "DATA" into dataCount
  199.   put round(framewidth()/dataCount) into horizStep
  200.   put round(horizStep * 3/4) into width
  201.   repeat with i = 1 to dataCount
  202.     get line i of field "DATA"
  203.     if it is not empty then
  204.       put round(frameheight() * it / maxValue) into height
  205.       drag from horiz,framebottom()-height to horiz+width,framebottom()
  206.     end if
  207.     add horizStep to horiz
  208.   end repeat
  209.   reset paint
  210.   choose browse tool
  211.   set userLevel to saveLevel
  212. end mouseUp
  213.  
  214.  
  215.  
  216.  
  217. -- part 20 (button)
  218. -- low flags: 00
  219. -- high flags: A003
  220. -- rect: left=204 top=274 right=296 bottom=260
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 1
  224. -- font id: 0
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: WEIGHT
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   PUSH CARD
  232.   PUT SHORT NAME OF THIS CARD INTO EXNAME
  233.   GO TO CARD "CHART"
  234.   PUT CARD FIELD "WEIGHT" OF CARD EXNAME INTO BACKGROUND FIELD "DATA" OF CARD "CHART"
  235.   PUT CARD FIELD "EXERCISE" OF CARD EXNAME INTO BACKGROUND FIELD "GRAPH NAME"
  236.   PUT  " WEIGHT" AFTER BACKGROUND FIELD "GRAPH NAME"
  237.   put the userLevel into saveLevel
  238.   if the userLevel < 3 then set userLevel to 3 -- "Painting"
  239.   if the userLevel < 3 then exit mouseUp
  240.   CLEARSCREEN
  241.   put empty into background field "total"
  242.   reset paint
  243.   choose rect tool
  244.   set lineSize to 1
  245.   set pattern to 14
  246.   set filled to true
  247.   put frameleft() into horiz
  248.   put maxLine(field "DATA") into maxValue
  249.   put the number of lines in field "DATA" into dataCount
  250.   put round(framewidth()/dataCount) into horizStep
  251.   put round(horizStep * 3/4) into width
  252.   repeat with i = 1 to dataCount
  253.     get line i of field "DATA"
  254.     if it is not empty then
  255.       put round(frameheight() * it / maxValue) into height
  256.       drag from horiz,framebottom()-height to horiz+width,framebottom()
  257.     end if
  258.     add horizStep to horiz
  259.   end repeat
  260.   reset paint
  261.   choose browse tool
  262.   set userLevel to saveLevel
  263. end mouseUp
  264.  
  265.  
  266.  
  267.  
  268. -- part 21 (button)
  269. -- low flags: 00
  270. -- high flags: 8003
  271. -- rect: left=28 top=275 right=297 bottom=128
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 0 / 0
  274. -- text alignment: 1
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: NEW EXERCISE
  280. ----- HyperTalk script -----
  281. on mouseUp
  282.   ask "What is the name of the exercise?" with "New Exercise"
  283.   doMenu copy card
  284.   doMenu paste card
  285.   set the name of this card to it
  286.   put it into card field "exercise"
  287.   put " " into card field "weight"
  288.   put " " into card field "reps"
  289.   put " " into card field "sets"
  290. end mouseUp
  291.  
  292.  
  293.  
  294. -- part contents for card part 14
  295. ----- text -----
  296. 1/5/88
  297. 1/7/88
  298. 1/9/88
  299.  
  300.  
  301.  
  302.  
  303. -- part contents for card part 11
  304. ----- text -----
  305. 33
  306. 44
  307. 44
  308.  
  309. -- part contents for card part 12
  310. ----- text -----
  311. 15
  312. 15
  313. 12
  314.  
  315. -- part contents for card part 13
  316. ----- text -----
  317. 1
  318. 2
  319. 1
  320.  
  321. -- part contents for card part 6
  322. ----- text -----
  323. CLOSE GRIP CURL
  324.  
  325. -- part contents for background part 14
  326. ----- text -----
  327. Need to space curls apart during workout
  328.